﻿<%@ Page Language="VB" %>

<%@ Import Namespace="System.IO" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<script runat="server">
    Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
        Dim Filetext As String = Server.MapPath("Content.txt")
        Dim objStreamReader As StreamReader
        objStreamReader = File.OpenText(Filetext)
        Dim Content As String = objStreamReader.ReadToEnd()
        Label1.Text = Content.Replace(vbCrLf, "<br>")
        objStreamReader.Close()
    End Sub
</script>
<html xmlns="http://www.w3.org/1999/xhtml">
<head id="Head1" runat="server">
    <title>Basic CMS</title>
</head>
<body>
    <form id="form1" runat="server">
    <div>
        <asp:Label ID="Label1" runat="server" Height="300px" Width="500px">
        </asp:Label>
        <br />
        <asp:HyperLink ID="HyperLink1" runat="server">Edit Text
        </asp:HyperLink>
    </div>
    </form>
</body>
</html>
